home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / programming / triton / developer / amigaoberon / tritonsupport.mod < prev   
Encoding:
Text File  |  1995-08-25  |  1.5 KB  |  71 lines
  1. MODULE TritonSupport;
  2.  
  3. IMPORT
  4.   sys : SYSTEM,
  5.   I   : Intuition,
  6.   T*  : Triton,
  7.   E*  : Exec,
  8.   u   : Utility;
  9.  
  10. TYPE
  11.   MsgString* = ARRAY 256 OF CHAR;
  12.  
  13. VAR
  14.   ezTitle* : ARRAY 256 OF CHAR;
  15.   App*     : T.AppPtr;
  16.  
  17. PROCEDURE CloseProject*(VAR p : T.ProjectPtr);
  18. BEGIN
  19.   T.CloseProject(p);
  20.   p:=NIL;
  21. END CloseProject;
  22.  
  23. PROCEDURE DeleteApp*(VAR app : T.AppPtr);
  24. BEGIN
  25.   T.DeleteApp(app);
  26.   app:=NIL;
  27. END DeleteApp;
  28.  
  29. PROCEDURE Req*(VAR p : T.ProjectPtr;
  30.                msg,gadgets : MsgString) : LONGINT;
  31. BEGIN
  32.   RETURN T.EasyRequestTags(App,sys.ADR(msg),
  33.                                sys.ADR(gadgets),
  34.                                T.ezReqPos,T.wpTopLeftScreen,
  35.                                T.ezLockProject,p,
  36.                                T.ezTitle,sys.ADR(ezTitle),
  37.                                T.ezActivate,1,
  38.                                u.done,0);
  39. END Req;
  40.  
  41. PROCEDURE DisplayBeep*(p : T.ProjectPtr);
  42. VAR
  43.   s : I.ScreenPtr;
  44. BEGIN
  45.   s:=T.LockScreen(p);
  46.   I.DisplayBeep(s);
  47.   T.UnlockScreen(s);
  48. END DisplayBeep;
  49.  
  50. PROCEDURE SetWindowTitle*(p : T.ProjectPtr; msg : ARRAY OF CHAR);
  51. BEGIN
  52.   T.SetAttribute(p,0,T.wiTitle,sys.ADR(msg));
  53. END SetWindowTitle;
  54.  
  55. PROCEDURE GetString*(p : T.ProjectPtr; id : E.ULONG) : E.STRPTR;
  56. BEGIN
  57.   RETURN sys.VAL(E.STRPTR,T.GetAttribute(p,id,T.atValue));
  58. END GetString;
  59.  
  60. PROCEDURE Enable*(p : T.ProjectPtr; id : E.ULONG);
  61. BEGIN
  62.   T.SetAttribute(p,id,T.atDisabled,0);
  63. END Enable;
  64.  
  65. PROCEDURE Disable*(p : T.ProjectPtr; id : E.ULONG);
  66. BEGIN
  67.   T.SetAttribute(p,id,T.atDisabled,1);
  68. END Disable;
  69.  
  70. END TritonSupport.
  71.